2 A=A+1:IFA=1THENLOAD"MPGETSPRIT",8,8
3 IFA=2THENLOAD"AUFRUF",8,8
4 IFA=3THENLOAD"VIEW3",8,8
5 IFA=4THENLOAD"VIEW4",8,8
6 IFA=5THENLOAD"VIEW5",8,8
9 POKE56,159:POKE52,159:CLR:GOSUB9000
10 POKE53281,0:POKE53280,0:POKE808,225:POKE53270,200
20 PRINT"[147]FULL SCREEN SPRITE-PICS
25 [153]"BY HELMUT BURGEMEISTER
30 PRINT"[155]  1. BILD LADEN
40 [153]"  2. BILD ALS RUN-FILE SPEICHERN
50 PRINT"  3. BILD ALS FILM-BILD SPEICHERN
60 [153]"  4. ART: KOALA PAINTER (4 FARBIG!)
70 PRINT"  5. DIRECTORY
80 [153]"  6. DISK-COMMAND
90 PRINT"  7. BILD NOCHMALS AUFRUFEN
95 [141]4100
100 [151]198,0:[146]198,1:[161]A$
110 [139]A$[179]"1"[176]A$[177]"7"[167]100
120 A[178][197](A$)
140 [145]A[137]1000,2000,3000,4000,5000,6000,7000
190 [137]100
1000 [153]"LOADBILD LADEN: (BLANK TO EXIT)
1010 PRINT"NAME DES "AR$(B)"    BILDES  $[157][157][157]";
1020 L$="":INPUTL$:IFL$="$"THENGOSUB8000:GOTO1010
1025 IFL$=""ORL$="*"THEN10
1030 OPEN2,8,2,L$+",P,R"
1040 OPEN1,8,15:INPUT#1,F,F$,Q,V:CLOSE1:CLOSE2
1050 IFF<>0THENPRINT""F","F$","Q","V
1060 P=1
1070 AD=8192:IFB=3THENAD=8192-114
1072 IFB=4THENAD=7192-24
1080 SYS32768,L$,AD
1082 POKE708,0
1085 IFB=0ORB=1ORB=3THENPOKE708,255
1090 GOTO7000
2000 PRINT"[147]BILD ALS RUN-FILE SPEICHERN
2010 S$[178]"":[133]" NAME ZUM SPEICHERN  $CMDCMDCMD";S$
2020 [139]S$[178]"$"[167][141]8000:[137]2010
2025 [139]S$[178]""[167]10
2030 [158]32768[170]12,S$
2049 [159]1,8,15:[132]1,F,F$,Q,V:[160]1
2050 [139]F[179][177]0[167][153]""F","F$","Q","V:[137]2010
2090 [137]10
3000 [153]"LOADFILM-BILD SPEICHERN
3010 S$="":INPUT"  BILD-NUMMER  $[157][157][157]";S$
3020 IFS$="$"THENGOSUB8000:GOTO3010
3025 IFS$=""THEN10
3030 SYS32768+3,S$,24576,28160
3032 OPEN1,8,15:INPUT#1,F,F$,Q,V:CLOSE1
3033 IFF<>0THENPRINT""F","F$","Q","V
3035 PRINT"FARBEN FUER FILMERSTELLUNG:
3040 [153]"LISTHINTERGRUNDFARBE :"[194](49249)
3050 [153]"SPRITE-FARBE :"[194](49255)
3055 [139][194](708)[178]0[167]3080
3060 [153]"MULTI-FARBE 1:"[194](49253)
3070 [153]"MULTI-FARBE 2:"[194](49254)
3080 [153]"  BITTE TASTE WENN NOTIERT ..."
3082 [151]198,0:[146]198,1:[161]A$
3090 [137]10
4000 B[178]B[170]1:[139]B[178]7[167]B[178]0
4010 [151]214,12:[153]:[151]211,10:[153]AR$(B)
4090 [137]100
4100 [151]214,12:[153]:[151]211,10:[153]AR$(B):[142]
5000 [141]8000:[137]10
6000 [153]"LOADDISK COMMANDS
6005 POKE631,34:POKE198,1
6010 L$="":INPUT" KOMMANDO ";L$
6020 IFL$=""THEN6050
6030 OPEN1,8,15:PRINT#1,L$:CLOSE1
6050 OPEN1,8,15:INPUT#1,F,F$,X,Y:CLOSE1
6060 PRINT" STATUS:"F","F$","X","Y"
6070 [153]" TASTE ..."
6080 [151]198,0:[146]198,1:[161]A$
6090 [137]10
7000 [158]32768[170]9
7090 [137]10
8000 [153]"LOAD": [158]32768[170]6
8010 [139][194](203)[178]64[167][153]"  BITTE TASTE ...":[151]198,0:[146]198,1:[161]A$
8090 [142]
9000 AR$(0)[178]"KOALA PAINTER (4 FARBIG!)  "
9010 AR$(1)[178]"BLAZING BATTLES (4 FARBIG!)
9020 AR$(2)="HI-EDDIE                   "
9030 AR$(3)="PAINT MAGIC                "
9040 AR$(4)="DOODLE                     "
9050 AR$(5)="NORMALE BITMAP             "
9060 AR$(6)="ART'S STUDIO               "
9100 RETURN